PROGRAM greet2
IMPLICIT NONE
CHARACTER(LEN=20) :: name
PRINT *,'Enter your name:'
READ(*,*),name
PRINT *,'Hello ',name
END PROGRAM

